﻿Option Strict On
Option Explicit On
Option Infer On

Imports System
Imports GenDotNet.TemplateSupport
Imports GenDotNet.Task.Common
Imports GenDotNet.ObjectModel

'Public Delegate Function ChildDelegate(ByVal args As ChildEventArgs) As String

Public Class ChildEventArgs
   Inherits ObjectEventArgs

   Private mChildData As IChildData

   Public Sub New( _
            ByVal info As BaseInfo, _
            ByVal childData As IChildData)
      MyBase.New(info, childData.ObjectData)
      Me.mChildData = ChildData
   End Sub

   Public Property ChildData() As IChildData
      Get
         Return mChildData
      End Get
      Set(ByVal value As IChildData)
         mChildData = value
      End Set
   End Property

End Class
